home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 February
/
EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso
/
recent
/
gui4unzp.lha
/
Gui-4-UnZip
next >
Wrap
Text File
|
1997-01-28
|
1KB
|
64 lines
;GUI 4 UnZip Version 0.6 by Kevin Anderson andersok@mail.bogo.co.uk
;7th January 1997
;For use with UnZip by Greg Roelofs
LAB Start
C:Requestchoice >env:ZIPchoice "GUI 4 UnZip ver 0.6""So what do you wanna do then ?""List Zip""Test Zip""Extract Here""Extract To""Cancel"
IF $ZIPchoice eq "0"
skip EndIt
ENDIF
IF $ZIPchoice eq "1"
skip ListZIP
ENDIF
IF $ZIPchoice eq "2"
skip TestZIP
ENDIF
IF $ZIPchoice eq "3"
skip HereZIP
ENDIF
IF $ZIPchoice eq "4"
skip ToZIP
ENDIF
LAB ListZIP
C:Requestfile >env:ZIPfile TITLE "Choose ZipFile to List"
Unzip -l $ZIPfile
wait 30
endcli
skip start
LAB TestZIP
C:Requestfile >env:ZIPfile TITLE "Choose ZipFile to Test"
Unzip -t $ZIPfile
wait 30
endcli
skip start
LAB HereZIP
C:Requestfile >env:ZIPfile TITLE "Choose ZipFile to UnZip"
unzip $ZIPfile
endcli
skip start
LAB ToZIP
C:Requestfile >env:ZIPfile TITLE "Choose ZipFile to UnZip"
skip WhereZip
LAB EndIt
endcli
skip start
LAB WhereZIP
C:Requestfile >env:ZIPDrawer TITLE "Where shall I UnZip to ?"
unzip $ZIPfile -d $ZIPDrawer
endcli
skip start
END